Imports System.Security.Cryptography
Imports System.Text

Public Class AccountUtils
    Public Shared Function EncodePassword(ByVal password As String) As String
        Try
            Dim SHA1 As New SHA1CryptoServiceProvider
            Return System.Convert.ToBase64String(SHA1.ComputeHash(Encoding.UTF8.GetBytes(password)))
        Catch ex As Exception
            gLog.LogError(ex)
            Return ""
        End Try
    End Function
End Class
